%{
#include "scheme.h"
%}

BLANK    [ \t]
X        [a-zA-Z0-9]
DIGIT    [0-9]
Y        [^ \t\n()]
Y0       [^ '\t\n()]

%%

"("		return LEFT;

")"		return RIGHT;

"'"		return tQUOTE;

{DIGIT}+ return tFIXNUM;

{DIGIT}*"."{DIGIT}+  return tFLOAT;
{DIGIT}+"."{DIGIT}*  return tFLOAT;

{Y0}{Y}*    return tSYM;


{BLANK}*
\n
